home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / dev / misc / BoulderEngine.lha / source / geras / MUSIC.C < prev    next >
Encoding:
C/C++ Source or Header  |  1998-03-30  |  1.1 KB  |  65 lines
  1. #include "MUSICKERNEL.C"
  2. /* =========================================
  3.    == Music Routines for BOULDER DASH     ==
  4.    ==  VER1.1          1994.03.10-14      ==
  5.    =========================================
  6. */
  7. AudioON()
  8. {
  9.  InitIOA();
  10.  makewaves();
  11. }
  12. AudioOFF()
  13. {
  14.  StopVoices();
  15.  FinishProg(0);
  16. }
  17.  
  18. Audiopirst()
  19. {
  20. BYTE *wft;
  21. int i,j,k;
  22.  unitno=voiceMap[0]; wft=wptr;
  23.  setwpv(wft,256,307,63,0);
  24.  unitno=voiceMap[3]; wft=wptr;
  25.  setwpv(wft,256,230,63,3);
  26.  unitno=voiceMap[2]; wft=wptr+woffsets[2];
  27.  setwpv(wft,83,200,63,2);
  28. }
  29. Audiopirst2(volume)
  30. int volume;
  31. {
  32.   unitno=voiceMap[0];
  33.   setpv(307,volume);
  34.   unitno=voiceMap[3];
  35.   setpv(230,volume);
  36.   unitno=voiceMap[2];
  37.   setpv(200,volume);
  38. }
  39.  
  40. Audiodzin()
  41. {
  42. BYTE *wft;
  43. int i,j,k;
  44. LONG a0,a3;
  45.  a0=voiceMap[0]; wft=wptr2+woffsets[6]; unitno=a0;
  46.  setwpv(wft,wlen[6],261,63,0);
  47.  a3=voiceMap[3]; wft=wptr2+woffsets[6]; unitno=a3;
  48.  setwpv(wft,wlen[6],260,63,3);
  49. }
  50. Audiopip(volume)
  51. int volume;
  52. {
  53.  unitno=voiceMap[0]; setpv(270,volume);
  54.  unitno=voiceMap[3]; setpv(275,volume);
  55. }
  56. Audiodzin2(volume)
  57. int volume;
  58. {
  59.  unitno=voiceMap[0];
  60.  setpv(261,volume);
  61.  unitno=voiceMap[3];
  62.  setpv(260,volume);
  63. }
  64.  
  65.